From: Nick Roberts <nickrob@snap.net.nz>
Date: Mon, 3 Aug 2009 22:07:50 +0000 (+0000)
Subject: (jdb): Set gud-jdb-classpath-string to current
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~11236
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=b90d694b1fec070be3290915014e17023c9aca72;p=emacs.git

(jdb): Set gud-jdb-classpath-string to current
directory if CLASSPATH is not set.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index f2e3a54459e..c20f5adeefc 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -2269,7 +2269,7 @@ gud, see `gud-mode'."
 
   ;; Set gud-jdb-classpath from the CLASSPATH environment variable,
   ;; if CLASSPATH is set.
-  (setq gud-jdb-classpath-string (getenv "CLASSPATH"))
+  (setq gud-jdb-classpath-string (or (getenv "CLASSPATH") "."))
   (if gud-jdb-classpath-string
       (setq gud-jdb-classpath
 	    (gud-jdb-parse-classpath-string gud-jdb-classpath-string)))